home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
sac.zip
/
FOXPRO.ZIP
/
SACPR5.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-08-27
|
10KB
|
219 lines
[\<1] - 80 Column Celestial Object Report
[\<2] - 132 Column Celestial Object Report
[\<3] - Word for Windows (Celestial Object Data File)
[\<4] - 80 Column Celestial Object Log Report
[\<Q] - Quit to report menu
DEACTIVATE POPUP
SACPR5
Print
cPRNf
FLDNCOL
WINDOW
_TXNFORM_SCR
DDATE_1
51DDATE_2
_PCNOTES
FNFAC
fNINDEX
W3NORDER
RV5NPR_SS
YESNO
CPR_GIF
ETCPRN
FLDCPR_PRN
OPTION
CFILE
D_SACPR_WFW
FLPRINT
Ascending
Descending8
SET ORDER TO nINDEX &cORDER
INDEX ON UPPER(CLUBS)+UPPER(OBJECT) TO
FOR CLUBS <> SPACE(10)
.AND.
mOBJECT$UPPER(OBJECT)
.AND.
mOTHER$UPPER(OTHER)
.AND.
TYPE=mTYPE
.AND.
mCLUBS$UPPER(CLUBS)
.AND.
mNOTES$UPPER(NOTES)
SET FILTER TO &cD
.AND.
dDATE_1<=LOG_DATE
.AND.
LOG_DATE<=dDATE_2
SET FILTER TO &cD
Press [ESC] to return to main menu...
cOBJ_INDEXf
FLDCORDER
NORDER
COBJ_INDEXNINDEX
FNFILE
DEXPLSWAIT
51FNTALK
_INDEXOBJECT
fMOBJECT
W3OTHER
RV5MOTHER
MTYPE
ETCLUBS
FLDMCLUBS
CNOTES
MNOTES
_SAOBJLOG
FLDDATE_1
DDATE_2
52CTR
FLD_SNBAR
FPRINT1
PRINT2
ET5PRINT3
LD_PRINT4
CDATAPATH
NFORM_NDX
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column Celestial Report
Date is
Celestial Object Filter is
?? &cPR_BOFF
Object:
Other:
Type of Object:
M->TYPE
Clubs:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
FLDNCOUNT
NPAGE
NPR_MAX
EXNRPT_ROW
NRPT_MAX
51BESC
_PCOBJ_NAME
OBJECT
OTHER
W3TYPE
RV5FLD_DES
CLUBS
T_ROW
TNOTES
FLDGIF
CGIFPATH
ACPR_GIF
FLPRINT_GIF
THERM
?? &cPR_DEF
bESC =.T.
?? &cPR_BON
Page F
132 Column Celestial Report
Date is
Celestial Object Filter is
Object Other Type Clubs
----------------- ----------------- ----- ----------
?? &cPR_BOFF
Notes:
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
FLDNCOUNT
NPAGE
NPR_MAX
EXNRPT_ROW
NRPT_MAX
51BESC
_PCOBJ_NAME
OBJECT
W3OTHER
RV5TYPE
CLUBS
T_ROW
TNOTES
FLDTHERM
OBJECT
OTHER
NOTES
CLUBS
bESC =.T.
Number of Printed Records = F
CFILE
FLDNCOUNT
EXOBJECT
OTHER
XTYPE
51NOTES
_PNNOTES
CLUBS
THERM
W3CTR
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column Celestial Log
Date is
Celestial Object Filter is
?? &cPR_BOFF
Object:
Other:
Type of Object:
M->TYPE
Clubs:
Log Date: F
Log Time:
Log Date: F
Log Time:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
FLDNCOUNT
NPAGE
NPR_MAX
EXNRPT_ROW
NRPT_MAX
51BESC
_PCOBJECT
OBJECT
COTHER
W3OTHER
RV5OBJLOG
COBJ_NAME
FLD_DES
LDCLUBS
LOG_DATE
LOG_TIME
T_ROW
LNOTES
2CGIF
SCGIFPATH
FCPR_GIF
PRINT_GIF
THERM
PRINT
PRINT1
PRINT2
PRINT3
PRINT4
D:\SKY\SAC\
SACPR5.FXP
D:\SKY\SAC\SACPR5.PRG